#ifndef _KLASS_HPP
#define _KLASS_HPP

#include <stdio.h>
#include <assert.h>
#include "util/arrayList.hpp"

class HiTypeObject;
class HiObject;
class HiString;
class HiDict;
class HiList;
class OopClosure;

class Klass {
private:
    HiList*       _super;
    HiList*       _mro;
    HiTypeObject* _type_object;
    HiString*     _name;
    HiDict*       _klass_dict;

    HiObject* find_and_call(HiObject* x, ObjList args, HiObject* func_name); 
    HiObject* find_in_parents(HiObject* x, HiObject* y);
public:
    Klass();

    static HiObject* create_klass(HiObject* x, HiObject* supers, HiObject* name);

    void add_super(Klass* x);
    HiTypeObject* super();
    void order_supers();

    void set_super_list(HiList* x)        { _super = x; }
    HiList* mro()                         { return _mro; }

    void set_type_object(HiTypeObject* x) { _type_object = x; }
    HiTypeObject* type_object()           { return _type_object; }

    void set_name(HiString* x)            { _name = x; }
    HiString* name()                      { assert(_name); return _name; }

    void set_klass_dict(HiDict* dict)     { _klass_dict = dict; }
    HiDict* klass_dict()                  { return _klass_dict; }

    static int compare_klass(Klass* x, Klass* y);

    virtual void print(HiObject* obj);

    virtual HiObject* greater  (HiObject* x, HiObject* y) { return 0; }
    virtual HiObject* less     (HiObject* x, HiObject* y) { return 0; }
    virtual HiObject* equal    (HiObject* x, HiObject* y) { return 0; }
    virtual HiObject* not_equal(HiObject* x, HiObject* y) { return 0; }
    virtual HiObject* ge       (HiObject* x, HiObject* y) { return 0; }
    virtual HiObject* le       (HiObject* x, HiObject* y) { return 0; }

    virtual HiObject* add(HiObject* x, HiObject* y);
    virtual HiObject* sub(HiObject* x, HiObject* y) { return 0; }
    virtual HiObject* mul(HiObject* x, HiObject* y) { return 0; }
    virtual HiObject* div(HiObject* x, HiObject* y) { return 0; }
    virtual HiObject* mod(HiObject* x, HiObject* y) { return 0; }

    virtual HiObject* subscr   (HiObject* x, HiObject* y);
    virtual void store_subscr  (HiObject* x, HiObject* y, HiObject* z);
    virtual void del_subscr    (HiObject* x, HiObject* y) { return; }
    virtual HiObject* contains (HiObject* x, HiObject* y) { return 0; }

    virtual HiObject* getattr  (HiObject* x, HiObject* y);
    virtual HiObject* setattr  (HiObject* x, HiObject* y, HiObject* z);

    virtual HiObject* allocate_instance (HiObject* type_object, ArrayList<HiObject*>* args);
    virtual HiObject* get_klass_attr    (HiObject* x, HiObject* y);
    virtual HiObject* next     (HiObject* x);
    virtual HiObject* iter     (HiObject* x);
    virtual HiObject* len      (HiObject* x);
    virtual HiObject* call     (ArrayList<HiObject*>* args) { return 0; }

    // gc interfaces
    // this is for objects of this type.
    virtual void oops_do(OopClosure* closure, HiObject* obj);
    // for klass itself only.
    virtual void oops_do(OopClosure* closure);
    virtual size_t size();

    void* operator new(size_t size);
};

#endif
